home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / light.arc / LIGHT.BAS (.txt) next >
Encoding:
GW-BASIC  |  1989-03-17  |  1.8 KB  |  45 lines
  1. 10  COLOR 7:CLS:KEY OFF:PRINT "THIS PROGRAM WILL COMPUTE THE TOTAL ILLUMINATION OF AN OBJECT"
  2. 20  PRINT "D^2 METERS FROM A LIGHT SOURCE WITH THE INTENSITY OF THE LIGHT SOURCE MEASURED"
  3. 30  PRINT "IN CD'S (FOOTCANDLES). NOTE:THERE IS APPROX .77 CD'S IN A 1 WATT INCANDESCENT."
  4. 35  PRINT "ALSO, THE HUMAN EYE IS SO SENSITIVE IT CAN PICK UP INTENSITIES TO ABOUT "
  5. 36  PRINT ".00000000001 CD'S."
  6. 40  PRINT
  7. 50  COLOR 9:INPUT "[PRESS ENTER]";A
  8. 60  CLS:KEY OFF:COLOR 2
  9. 70  PRINT "(I) THE INTENSITY OF THE LIGHT SOURCE,"
  10. 80  PRINT "(D) THE DISTANCE OF OBJECT FROM LIGHT SOURCE,"
  11. 90  PRINT "(T) THE TOTAL ILLUMINATION OF AN OBJECT AT A GIVEN DISTANCE?"
  12. 100  PRINT "(Q) QUIT!"
  13. 110  COLOR 9:INPUT "WHAT DO YOU WANT TO FIND";A$
  14. 120  IF A$="I" THEN 170
  15. 130  IF A$="D" THEN 240
  16. 140  IF A$="T" THEN 310
  17. 150  IF A$="Q" THEN 500
  18. 160  COLOR 15:PRINT "YOU TYPED SOMETHING WRONG!":GOTO 110
  19. 170  COLOR 4:PRINT "ENTER THE TOTAL DISTANCE FROM THE LIGHT SOURCE (IN METERS)."
  20. 180  INPUT D
  21. 190  PRINT "NOW ENTER THE TOTAL ILLUMINATION OF THE OBJECT AT THE GIVEN DISTANCE."
  22. 200  INPUT E
  23. 210  COLOR 15:I=D^2*E
  24. 220  PRINT "THE INTENSITY OF THE LIGHT SOURCE IS "I" CD'S."
  25. 230  COLOR 2:GOTO 70
  26. 240  COLOR 4:PRINT "ENTER THE INTENSITY OF THE LIGHT SOURCE."
  27. 250  INPUT I
  28. 260  PRINT "ENTER THE TOTAL ILLUMINATION OF THE OBJECT."
  29. 270  INPUT E
  30. 280  COLOR 15:D=I/E
  31. 290  PRINT "THE DISTANCE THE OBJECT IS FROM THE LIGHT SOURCE IS "D" SQUARE METERS."
  32. 300  COLOR 2:GOTO 70
  33. 310  COLOR 4:PRINT "ENTER THE TOTAL DISTANCE FROM THE LIGHT SOURCE (IN METERS)."
  34. 320  INPUT D
  35. 330  PRINT "ENTER THE INTENSITY OF THE LIGHT SOURCE."
  36. 340  INPUT I
  37. 350  COLOR 15:E=I/D^2
  38. 360  PRINT "THE TOTAL ILLUMINATION OF THE OBJECT AT THE GIVEN DISTANCE IS "E" CD'S."
  39. 370  COLOR 2:GOTO 70
  40. 500  CLS:COLOR 14:PRINT "Thanks for using this program (even if you don't have any use for it!)"
  41. 510  PRINT "If you have any comments, suggestions, formulas you want programmed, write"
  42. 520  PRINT "to this address and I'll TRY to get back to you. You can also call `The"
  43. 530  PRINT "Far Side BBS' at (405)341-4720 and leave me a message."
  44. 540  COLOR 3:PRINT "Brian Duea":PRINT "11224 nw 109 st.":PRINT "Yukon,Ok. 73099"
  45.